home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_c2.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  5KB  |  388 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T108 r108realloc(T108 C,T2 a1,T2 a2){
  12. T108 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r108copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r108set_all_with(T108 C,T0* a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=(a1);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. T2 r108fast_index_of(T108 C,T0* a1,T2 a2){
  30. T2 R=0;
  31. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  32. R=(R)+(1);
  33. }
  34. return R;
  35. }
  36.  
  37.  
  38. void r108copy_from(T108 C,T108 a1,T2 a2){
  39. T2 _i=0;
  40. _i=a2;
  41. while (!((_i)<(0))) {
  42. (C)[_i]=((a1)[_i]);
  43. _i=(_i)-(1);
  44. }
  45. }
  46.  
  47.  
  48. T100 r100realloc(T100 C,T2 a1,T2 a2){
  49. T100 R=NULL;
  50. R=calloc(a2,sizeof(T0*));
  51. r100copy_from(R,C,(a1)-(1));
  52. return R;
  53. }
  54.  
  55.  
  56. void r100clear_all(T100 C,T2 a1){
  57. T2 _i=0;
  58. T0* _v=NULL;
  59. _i=a1;
  60. while (!((_i)<(0))) {
  61. (C)[_i]=(_v);
  62. _i=(_i)-(1);
  63. }
  64. }
  65.  
  66.  
  67. void r100set_all_with(T100 C,T0* a1,T2 a2){
  68. T2 _i=0;
  69. _i=a2;
  70. while (!((_i)<(0))) {
  71. (C)[_i]=(a1);
  72. _i=(_i)-(1);
  73. }
  74. }
  75.  
  76.  
  77. void r100copy_from(T100 C,T100 a1,T2 a2){
  78. T2 _i=0;
  79. _i=a2;
  80. while (!((_i)<(0))) {
  81. (C)[_i]=((a1)[_i]);
  82. _i=(_i)-(1);
  83. }
  84. }
  85.  
  86.  
  87. T239 r239realloc(T239 C,T2 a1,T2 a2){
  88. T239 R=NULL;
  89. R=calloc(a2,sizeof(T0*));
  90. r239copy_from(R,C,(a1)-(1));
  91. return R;
  92. }
  93.  
  94.  
  95. void r239copy_from(T239 C,T239 a1,T2 a2){
  96. T2 _i=0;
  97. _i=a2;
  98. while (!((_i)<(0))) {
  99. (C)[_i]=((a1)[_i]);
  100. _i=(_i)-(1);
  101. }
  102. }
  103.  
  104.  
  105. T71 r71realloc(T71 C,T2 a1,T2 a2){
  106. T71 R=NULL;
  107. R=calloc(a2,sizeof(T0*));
  108. r71copy_from(R,C,(a1)-(1));
  109. return R;
  110. }
  111.  
  112.  
  113. T6 r71equal_like(T0* a1,T0* a2){
  114. T6 R=0;
  115. /*[IF*/
  116. /*AF*//*AF*/if((a1)==((void*)(a2))){
  117. R=1;
  118. }
  119.  else if(((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))){
  120. }
  121. else{
  122. R=r70is_equal(((T70*)a1),a2);
  123. }
  124. /*FI]*/
  125. return R;
  126. }
  127.  
  128.  
  129. T2 r71fast_index_of(T71 C,T0* a1,T2 a2){
  130. T2 R=0;
  131. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  132. R=(R)+(1);
  133. }
  134. return R;
  135. }
  136.  
  137.  
  138. void r71copy_from(T71 C,T71 a1,T2 a2){
  139. T2 _i=0;
  140. _i=a2;
  141. while (!((_i)<(0))) {
  142. (C)[_i]=((a1)[_i]);
  143. _i=(_i)-(1);
  144. }
  145. }
  146.  
  147.  
  148. T2 r71index_of(T71 C,T0* a1,T2 a2){
  149. T2 R=0;
  150. while (!(((R)>(a2))||(r71equal_like(a1,(C)[R])))) {
  151. R=(R)+(1);
  152. }
  153. return R;
  154. }
  155.  
  156.  
  157. T351 r351realloc(T351 C,T2 a1,T2 a2){
  158. T351 R=NULL;
  159. R=calloc(a2,sizeof(T0*));
  160. r351copy_from(R,C,(a1)-(1));
  161. return R;
  162. }
  163.  
  164.  
  165. void r351clear_all(T351 C,T2 a1){
  166. T2 _i=0;
  167. T0* _v=NULL;
  168. _i=a1;
  169. while (!((_i)<(0))) {
  170. (C)[_i]=(_v);
  171. _i=(_i)-(1);
  172. }
  173. }
  174.  
  175.  
  176. void r351set_all_with(T351 C,T0* a1,T2 a2){
  177. T2 _i=0;
  178. _i=a2;
  179. while (!((_i)<(0))) {
  180. (C)[_i]=(a1);
  181. _i=(_i)-(1);
  182. }
  183. }
  184.  
  185.  
  186. void r351copy_from(T351 C,T351 a1,T2 a2){
  187. T2 _i=0;
  188. _i=a2;
  189. while (!((_i)<(0))) {
  190. (C)[_i]=((a1)[_i]);
  191. _i=(_i)-(1);
  192. }
  193. }
  194.  
  195.  
  196. T68 r68realloc(T68 C,T2 a1,T2 a2){
  197. T68 R=NULL;
  198. R=calloc(a2,sizeof(T0*));
  199. r68copy_from(R,C,(a1)-(1));
  200. return R;
  201. }
  202.  
  203.  
  204. void r68set_all_with(T68 C,T0* a1,T2 a2){
  205. T2 _i=0;
  206. _i=a2;
  207. while (!((_i)<(0))) {
  208. (C)[_i]=(a1);
  209. _i=(_i)-(1);
  210. }
  211. }
  212.  
  213.  
  214. T2 r68fast_index_of(T68 C,T0* a1,T2 a2){
  215. T2 R=0;
  216. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  217. R=(R)+(1);
  218. }
  219. return R;
  220. }
  221.  
  222.  
  223. void r68copy_from(T68 C,T68 a1,T2 a2){
  224. T2 _i=0;
  225. _i=a2;
  226. while (!((_i)<(0))) {
  227. (C)[_i]=((a1)[_i]);
  228. _i=(_i)-(1);
  229. }
  230. }
  231.  
  232.  
  233. T112 r112realloc(T112 C,T2 a1,T2 a2){
  234. T112 R=NULL;
  235. R=calloc(a2,sizeof(T0*));
  236. r112copy_from(R,C,(a1)-(1));
  237. return R;
  238. }
  239.  
  240.  
  241. void r112clear_all(T112 C,T2 a1){
  242. T2 _i=0;
  243. T0* _v=NULL;
  244. _i=a1;
  245. while (!((_i)<(0))) {
  246. (C)[_i]=(_v);
  247. _i=(_i)-(1);
  248. }
  249. }
  250.  
  251.  
  252. void r112set_all_with(T112 C,T0* a1,T2 a2){
  253. T2 _i=0;
  254. _i=a2;
  255. while (!((_i)<(0))) {
  256. (C)[_i]=(a1);
  257. _i=(_i)-(1);
  258. }
  259. }
  260.  
  261.  
  262. void r112copy_from(T112 C,T112 a1,T2 a2){
  263. T2 _i=0;
  264. _i=a2;
  265. while (!((_i)<(0))) {
  266. (C)[_i]=((a1)[_i]);
  267. _i=(_i)-(1);
  268. }
  269. }
  270.  
  271.  
  272. T197 r197realloc(T197 C,T2 a1,T2 a2){
  273. T197 R=NULL;
  274. R=calloc(a2,sizeof(T0*));
  275. r197copy_from(R,C,(a1)-(1));
  276. return R;
  277. }
  278.  
  279.  
  280. void r197copy_from(T197 C,T197 a1,T2 a2){
  281. T2 _i=0;
  282. _i=a2;
  283. while (!((_i)<(0))) {
  284. (C)[_i]=((a1)[_i]);
  285. _i=(_i)-(1);
  286. }
  287. }
  288.  
  289.  
  290. T355 r355realloc(T355 C,T2 a1,T2 a2){
  291. T355 R=NULL;
  292. R=calloc(a2,sizeof(T6));
  293. r355copy_from(R,C,(a1)-(1));
  294. return R;
  295. }
  296.  
  297.  
  298. void r355set_all_with(T355 C,T6 a1,T2 a2){
  299. T2 _i=0;
  300. _i=a2;
  301. while (!((_i)<(0))) {
  302. (C)[_i]=(a1);
  303. _i=(_i)-(1);
  304. }
  305. }
  306.  
  307.  
  308. void r355move(T355 C,T2 a1,T2 a2,T2 a3){
  309. T2 _i=0;
  310. /*[IF*/
  311. if((a3)==(0)){
  312. }
  313.  else if((a3)<(0)){
  314. _i=a1;
  315. while (!((_i)>(a2))) {
  316. (C)[(_i)+(a3)]=((C)[_i]);
  317. _i=(_i)+(1);
  318. }
  319. }
  320. else{
  321. _i=a2;
  322. while (!((_i)<(a1))) {
  323. (C)[(_i)+(a3)]=((C)[_i]);
  324. _i=(_i)-(1);
  325. }
  326. }
  327. /*FI]*/
  328. }
  329.  
  330.  
  331. void r355copy_from(T355 C,T355 a1,T2 a2){
  332. T2 _i=0;
  333. _i=a2;
  334. while (!((_i)<(0))) {
  335. (C)[_i]=((a1)[_i]);
  336. _i=(_i)-(1);
  337. }
  338. }
  339.  
  340.  
  341. void r355clear(T355 C,T2 a1,T2 a2){
  342. T2 _i=0;
  343. T6 _v=0;
  344. _i=a1;
  345. while (!((_i)>(a2))) {
  346. (C)[_i]=(_v);
  347. _i=(_i)+(1);
  348. }
  349. }
  350.  
  351.  
  352. T48 r48realloc(T48 C,T2 a1,T2 a2){
  353. T48 R=NULL;
  354. R=calloc(a2,sizeof(T2));
  355. r48copy_from(R,C,(a1)-(1));
  356. return R;
  357. }
  358.  
  359.  
  360. void r48set_all_with(T48 C,T2 a1,T2 a2){
  361. T2 _i=0;
  362. _i=a2;
  363. while (!((_i)<(0))) {
  364. (C)[_i]=(a1);
  365. _i=(_i)-(1);
  366. }
  367. }
  368.  
  369.  
  370. T2 r48fast_index_of(T48 C,T2 a1,T2 a2){
  371. T2 R=0;
  372. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  373. R=(R)+(1);
  374. }
  375. return R;
  376. }
  377.  
  378.  
  379. void r48copy_from(T48 C,T48 a1,T2 a2){
  380. T2 _i=0;
  381. _i=a2;
  382. while (!((_i)<(0))) {
  383. (C)[_i]=((a1)[_i]);
  384. _i=(_i)-(1);
  385. }
  386. }
  387.  
  388.